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ABSTRACT 

This routine converts an eight digit (32-bit) number in BCD 

+-o it-s .Vmhlc prorlslon binary equivalent. 
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1. REOUXaBMEHTS 

1. 1 Memory 

IK or larger alterable memory. 

1 . 2 Equi pmen t 

KOVA Central Processor. 

1. 3 E xternal Subroutines 
None. 

1.4 Other 
None. 

2. OPERATING PROCEDURE 

2. 1 Calling Sequence 

JSR .DBCB 
return 

2.2 Input Format 

An eight digit BCD integer is passed in hC0 t 

AC1. The roost significant digit is in bits 

- 3 of AC0, the least significant digit is in 

bits 12 - 15 of AC1. Its maximum value is 99999999 

2. 3 Output Format 

The binary equivalent of the input (always 
positive) is returned in AC0 (high order), 
AC1 ( low order) . 

2.4 Error Returns 

If a digit greater than binary 1001 is encountered 
in the input, Carry will be set and AC0 will con- 
tain the bad digit. On a normal return, Carry 
will be zero. 
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2.5 State of Active Registers upon Exit 

AC2 is unchanged. AC0, AC1, AC3, and Carry are 
destroyed. 

2. 6 Cautions to User 
None. 

3. DISCUSSION 

3.1 Algorithms 

Assume a BCD input of the form: 

B(7) B(6)...B(0) 

where the B*s represent the 4-bit BCD digits. 
The routine uses Horner's method to compute the 
binary equivalent: 

(...(B{7)*10 + B(6)) * 10 + ...B(l)) * 10 + B{0) 

If an illegal BCD digit is encountered at any 
point, Carry is set and return made with erroneous 
results. 

3.2 Limitations and Accuracy 

The BCD input, B, must be in the range 

4B < 100, 000 1 000. 
For inputs in this range, the routine is exact. 

3. 3 Size and Timing 

The routine is 7 6 (octal) words in length. 
Execution time is 2.174 milliseconds. 

3.4 References 

Single precision BCD to binary is described by 
write-up 093-000023. 
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3, 5 Flow Diagrams 

None. 

- • Tl-:;- ..^l':t- •\ : "j ••.f .?lic", ioj. ?■ 

The ASCII source of .DBCB is provided with the hOVh 
software. If a user routine requires double BCD to 
binary, this tape should be edited into the user 
source . 

5. PROGRAM LISTING 

A listing of .DBCB follows. No origin is given in the 

source, enabling the tape to be edited anywhere within 
the user's source. 



jBte - - .':' t :■-"'- * --'*•" - - * 



i INPUT! 

I 

J 

i output j 

i 



DOUBLE 



. ; ^*?9-r--" 



imUBEH IN 
F MAXIMUM VALUE 



20 ItfPUT IN AC0# 



I CALLING SLyyENCL! 
I JSK • DBCB 
1 KETUKN 

J LKKOK CONDITION: I'-' ft - L'Ti: >9 IS FNCOUMTEHEB U> 

I THE INPUT* CAKKY WILL BE SET 

1 AND AC0 WILL CONTAIN THE SAO DIGIT 



I OELTftOYELf 
; y^CHAMLEiJf 



AC0* ACl* AC 3* CAKKY 
AC 2 



00030 054063 *DBCBf SLA 3j>»FA03 

00002 0440 70 

00003 116400 

00004 0i>4(<364 
08005 054065 



K#f£J 

0L 



• T 0i>4066 



00010 004020 .FA99 2 

00011 00§0I7 

00012 004040 

00013 014866 



00016 024865 



•FA9SI 



ST A 0#.PA1L 
St A 1*»FA12 + 1 
3 15 3 * o 
ST A 3j*F"A10 
5TA 3*«FA10+1 
LP A 3j»«FA2'3 
SfA 3#.FA1 1 

35 K .FAb0 

3MP - - L9 i, 
JSH .FASt 
Lie »FA 1 I 
J MP .FA99 
LLA 0**FA10 
Li)A 1*«FA10+1 
J Mr §«FA03 



I 3AV/£ K£fUKCS» 

j§ SAVE INPUT 



I CLE AH FESULT WOFOS 
1 LOOP 8 TIMES 



I GET A i) I GIF 

I EFROK IN DIGIT* CA.KRY IS SET 

5 MULTIPLY BY 10 AND ADD 

1 LOOP FOK 8 DIGITS 



I KETUHN 



SUB 0*0 



i ; . : -.".-■ i" tu input 



1ST ANT C1?j 02? ,.--'^L> 

9# CARRY SET 



■ s i n i*« 



I *4 

I S.AVE KEIUKN 

; LOW ORDER 



' ■ - . •:• . • <; - •'• -' 



> 

$' SAVE RESULTS 

1 KfiTiJJtN 



UNT WOKD 



idiBTb fe50fel012 .FA22; 12 



At 10) 



